SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDBANC_CTCO_I01]   
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                 --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M©dulo               : Empresa                    --*/  
/*---Programa             : Grabaci©n Detalle          --*/  
/*---                       Movimiento Bancos          --*/  
/*---                       (Egresos)                  --*/    
/*---Script               : TDBANC_CTCO_I01.sql               --*/  
/*---Nombre SP            : SP_TDBANC_CTCO_I01         --*/  
/*---Desarrollado por     : Javier Flores A.           --*/  
/*---Fecha Creaci÷n       : 18/06/1999                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi©n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     : Eduardo Vivar Pomiano      --*/  
/*---Fecha Modificaci©n   : 03/04/2001                 --*/   
/*---Detalle Modificaci©n : Permite grabar docs Clientes en EGRESOS--*/  
/*-------------------------------------------------------*/  
 /*-------------------------------------------------------*/  
/*---Modificado 2 por     : Maribel Julca Rodriguez      --*/  
/*---Fecha Modificaci©n   : 20/04/2005                   --*/   
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/  
/*-------------------------------------------------------*/  
 
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TDBANC_CTCO_I01                      --*/  
/*---Grant all on SP_TDBANC_CTCO_I01 to public         --*/   
/*---SP_TDBANC_CTCO_I01                               --*/  
/*-------------------------------------------------------*/  
  
 @ISCO_EMPR TD_VC_002,   
 @ISCO_USUA_MODI TD_VC_008_USUA,  
 @ISCO_BANC TD_VC_003,   
 @ISNU_CNTA_BANC TD_VC_020,  
 @ISAA_BNCO TD_VC_004,   
 @ISMM_BNCO TD_VC_002,   
 @ISTI_MOVI_BANC TD_VC_001,    
 @ISNU_COMP_BANC TD_VC_008,   
 @ISNU_PLAC TD_VC_010,  
 @ISCO_TIPO_ENTI TD_VC_001,   
 @ISCO_ENTI TD_VC_020,  
 @ISDE_ENTI TD_VC_050,  
 @ISNU_KILO_ANTE TD_VC_010,  
 @ISNU_KILO_RECO TD_VC_010,  
 @ISDE_DOCU TD_VC_050,  
 @INIM_VEHI TD_NU_016_004,  
 @INST_CONT TD_IN_001,  
 @INIM_MOVI TD_NU_016_004,  
 @INIM_VEHI_SUMA TD_NU_016_004,
 @ISCO_UNID_CNTB TD_VC_003
  
 As  
   
 Begin Tran SP_TDBANC_CTCO_I01   
 Insert into  TDBANC_CTCO ( CO_EMPR, CO_BANC, NU_CNTA_BANC, AA_BNCO, MM_BNCO, TI_MOVI_BANC, NU_COMP_BANC, NU_PLAC,  
   CO_TIPO_ENTI, CO_ENTI, DE_ENTI, NU_KILO_ANTE, NU_KILO_RECO, DE_DOCU,  
   IM_VEHI, CO_USUA_CREA, FE_USUA_CREA,CO_USUA_MODI, FE_USUA_MODI, CO_UNID_CONC)  
 Values  ( @ISCO_EMPR,  @ISCO_BANC,  @ISNU_CNTA_BANC,  @ISAA_BNCO,  @ISMM_BNCO,  @ISTI_MOVI_BANC , @ISNU_COMP_BANC,  @ISNU_PLAC,   
 @ISCO_TIPO_ENTI,  @ISCO_ENTI, @ISDE_ENTI,  @ISNU_KILO_ANTE,  
        @ISNU_KILO_RECO,  @ISDE_DOCU, @INIM_VEHI,  @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE(), @ISCO_UNID_CNTB)  
  
 If @@error <> 0  
        Begin  
          Rollback tran  
   Return  
        End    
  
 If ( @INST_CONT <> 0 )   Or  ( @INIM_VEHI_SUMA <>0 And @INST_CONT=0 )   
  Set @INIM_MOVI = 0  
  
 If ( @INST_CONT = 0 )  And  ( @INIM_VEHI_SUMA = 0 )  
     Update TCMOVI_BANC  
     Set IM_MOVI      = 0,  
         CO_USUA_MODI = @ISCO_USUA_MODI,  
         FE_USUA_MODI = getdate()           
     Where CO_EMPR = @ISCO_EMPR   
     And   CO_UNID_CONC = @ISCO_UNID_CNTB
     And   CO_BANC = @ISCO_BANC   
     And   NU_CNTA_BANC = @ISNU_CNTA_BANC   
     And   AA_BNCO = @ISAA_BNCO  
     And   MM_BNCO = @ISMM_BNCO   
     And   TI_MOVI_BANC = @ISTI_MOVI_BANC  
     And   NU_COMP_BANC = @ISNU_COMP_BANC   
  
 If @@error <> 0  
        Begin  
          Rollback tran  
     Return  
        End    
      
 Update TCMOVI_BANC  
     Set IM_MOVI      = IM_MOVI + Round(@INIM_VEHI,2),  
         CO_USUA_MODI = @ISCO_USUA_MODI,  
         FE_USUA_MODI = getdate()           
     Where CO_EMPR = @ISCO_EMPR   
     And   CO_UNID_CONC = @ISCO_UNID_CNTB
     And   CO_BANC = @ISCO_BANC   
     And   NU_CNTA_BANC = @ISNU_CNTA_BANC   
     And   AA_BNCO = @ISAA_BNCO  
     And   MM_BNCO = @ISMM_BNCO   
     And   TI_MOVI_BANC = @ISTI_MOVI_BANC  
     And   NU_COMP_BANC = @ISNU_COMP_BANC   
  
 If @@error <> 0  
        Begin  
          Rollback tran  
     Return  
        End    
  
commit tran  
  
/*------------------------ Fin ------------------------------*/


GO
